home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Channel Tester < prev    next >
Text File  |  1998-10-26  |  348b  |  24 lines
  1. (def-orchestra 'orchestra
  2.    all-instruments (piano synth bass)
  3. )
  4.  
  5. (def-section a
  6.   default
  7.     zone '(1/1)
  8.     tonality (activate-tonality (major c 4))
  9.     length '(1/16)
  10.     velocity '(64)
  11.     symbol '(a b c)
  12.   piano 
  13.     channel 15
  14.   synth
  15.     channel 16
  16.   bass
  17.     channel 17
  18. )
  19.  
  20. (midiport :modem)
  21.  
  22. (play-file-p "test5"
  23.    all-instruments '(a)
  24. )